﻿Public Class Pro4_4



    Private Sub NegritaToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NegritaToolStripMenuItem1.Click
        Dim FUENTE As New Font(TextBox1.Font, FontStyle.Bold)
        Me.TextBox1.Font = FUENTE
    End Sub

    Private Sub CURSIVAToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CURSIVAToolStripMenuItem1.Click
        Dim FUENTE As New Font(TextBox1.Font, FontStyle.Italic)
        Me.TextBox1.Font = FUENTE
    End Sub

    Private Sub SUBRRAYADOToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SUBRRAYADOToolStripMenuItem.Click
        Dim FUENTE As New Font(TextBox1.Font, FontStyle.Underline)
        Me.TextBox1.Font = FUENTE
    End Sub

    Private Sub REGULARToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles REGULARToolStripMenuItem.Click
        Dim FUENTE As New Font(TextBox1.Font, FontStyle.Regular)
        Me.TextBox1.Font = FUENTE
    End Sub
End Class